object FPesquisaUltimosItensPedidoVenda: TFPesquisaUltimosItensPedidoVenda
  Left = 352
  Top = 224
  Width = 555
  Height = 300
  Caption = 'Ultimos Pedidos'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 16
    Width = 35
    Height = 16
    Alignment = taCenter
    Caption = 'Label1'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial Narrow'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 0
    Width = 35
    Height = 16
    Alignment = taCenter
    Caption = 'Label1'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial Narrow'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object btFechar: TButton
    Left = 460
    Top = 5
    Width = 75
    Height = 25
    Caption = '&Fechar'
    TabOrder = 0
    OnClick = btFecharClick
  end
  object DBItens: TDBGrid
    Left = 0
    Top = 34
    Width = 538
    Height = 217
    DataSource = DSUltimosItens
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    OnDrawColumnCell = DBItensDrawColumnCell
    OnDblClick = DBItensDblClick
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'PED_CODIGO'
        Title.Alignment = taCenter
        Title.Caption = 'Pedido'
        Width = 76
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'PED_DATA'
        Title.Alignment = taCenter
        Title.Caption = 'Data'
        Width = 77
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'ITENSPED_QUANTIDADE'
        Title.Alignment = taCenter
        Title.Caption = 'Quant.'
        Width = 75
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'ITENSPED_VALORUNIT'
        Title.Alignment = taCenter
        Title.Caption = 'Vr. Unit'#225'rio'
        Width = 94
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'PED_PAGAMENTO'
        Title.Alignment = taCenter
        Title.Caption = 'Pago'
        Width = 68
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'PED_SITUACAO'
        Title.Alignment = taCenter
        Title.Caption = 'Situa'#231#227'o'
        Width = 107
        Visible = True
      end>
  end
  object QUltimosItens: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      '  SELECT FIRST 5'
      '        pedidovenda.ped_codigo,'
      '        pedidovenda.ped_data,'
      '        itenspedidovenda.itensped_quantidade,'
      '        itenspedidovenda.itensped_valorunit,'
      '        pedidovenda.ped_situacao,'
      '       pedidovenda.ped_pagamento '
      '      FROM'
      '        pedidovenda'
      
        '      INNER JOIN itenspedidovenda ON (pedidovenda.ped_codigo = i' +
        'tenspedidovenda.itensped_pedido)'
      ''
      '      WHERE'
      
        '         (pedidovenda.excluido <> '#39'S'#39' OR pedidovenda.excluido IS' +
        ' NULL) AND'
      '         (pedidovenda.ped_situacao = 1) '
      '     ORDER BY pedidovenda.ped_data')
    Left = 224
    Top = 192
    object QUltimosItensPED_CODIGO: TIntegerField
      FieldName = 'PED_CODIGO'
    end
    object QUltimosItensPED_DATA: TDateTimeField
      FieldName = 'PED_DATA'
    end
    object QUltimosItensITENSPED_QUANTIDADE: TFloatField
      FieldName = 'ITENSPED_QUANTIDADE'
    end
    object QUltimosItensITENSPED_VALORUNIT: TFloatField
      FieldName = 'ITENSPED_VALORUNIT'
    end
    object QUltimosItensPED_SITUACAO: TSmallintField
      FieldName = 'PED_SITUACAO'
    end
    object QUltimosItensPED_PAGAMENTO: TStringField
      FieldName = 'PED_PAGAMENTO'
      FixedChar = True
      Size = 2
    end
  end
  object DSUltimosItens: TDataSource
    DataSet = cdsultimositens
    Left = 328
    Top = 192
  end
  object cdsultimositens: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 120
    Top = 192
  end
end
